DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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PROC 3 8! 
ROCESS ALL UALIF JERS IN QUALIFIER LIST 
5 PROC ze QUALI 
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EFAULT VALUE 
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“FACILITY: STARLET DCL CLI 
ABSTRACT: RESULT PARSE MAIN ROUTINE 


+ 
10 ENVIRONMENT: NATIVE MODE USER CODE 
t AUTHOR: W.H.BROWN, CREATION DATE: 13-APR-77 
i MODIFIED BY: 
000 v03-004 PCG0005 Peter George 30-Apr-1983 
Change BSBW to JSB. 
v03-003 PCG0004 Peter George 15-Feb-1983 


Convert to new stucture level. 
Reference qualit er number by PTR_B_NUMBER. 


v03-002 PCG0003 15-Nov-1982 
Use OC SCNVNOEDIT® aces "St DCLSCNVNUMDEC. 
a ze NEXTQUAL callbacks. 


v03-001 pce Peter George 50~Sep=1962 
y *ocLs6 TOPT to correctly check for syn sen 
atl ng entity. Refer to PTR Length symbolically. 
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DECLARATIONS ~3Ep- :43:58 CDCL.SRCIRPDCL.MAR: (3) 
RESULT PARSE MAIN ROUTINE "G-SEP-1984 90:13:01 YAK/VRS acre VO4 Page 
.SBTTL DECLARATIONS 
MACRO LIBRARY CALLS 


' PRCDEF 3; DEF PROCESS WORK ane 
WRKDEF 3 DEF coe WORK AREA 
SSCLITABDEF : DEF ABLE a ht 
PTRDEF 3 DEFINE RESULT PARSE D 4h FORMAT 
RPWOEF : RESULT PARSE WORK DEFINITIONS 
PLMDEF 3 PARAM ree MIT DEFINITIONS 
S¢L Veneer ; VERB TYPE. copes 
St MASGDE : Cll MESSAGE DEFINITIONS 


UTILITY CALL PARAMETER OFFSETS 


RQDESC = 4 : OFFSET TO REQUEST DESCRIPTOR 
8 4 RQWORK = : : OFFSET TO WORK BLOCK 
C 5 ROBITS = 2 : OFFSET TO BIT ARRAY ADDRESS 
$ 3 INTERNAL ERROR BIT = DON'T USE RS AS RESULT DESCRIPTOR INDEX 
0000001F 23 . INTERROR = 31 ; BIT 31 FLAGS INTERNAL ERROR 


Hi -PSECT OCLSZCODE BYTE ,RD ,NOWRT 
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RESULT PARSE INITIAL ENTRY grSee i 15be 89:13:83 HOR/Mes Macro vOse0 ed 
LSBTTL RESULT PARSE INITIAL ENTRY 

FUNCTIONAL DESCRIPTION: 


THIS IS THE ENTRY POINT USED FOR ALL UTILITY SEVICE 
CALL BACK REQUEST FOR SERVICE. 


CALLING SEQUENCE: 
CALL DCLSUTILSERV 
INPUT PARAMETERS: 


2s 


SS = = 


pernee tant IS THE ADDRESS OF THE REQUEST DESCRIPTOR 

RQWORK(AP) IS THE ADDRESS OF A WORK AREA FOR RESULT PARSE DATA 

ROBI TS CAPD alt THE ADDRESS OF A BIT ARRAY FOR INPUT/OUTPUT 
PARAMETER DEFINITION REQUESTS 
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eS SSS 
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OUTPUT PARAMETERS: 

THE FUNCTION IS PURFORMED, OR AN ERROR IS RETURNED 
COMPLETION CODES: 

RO = SUCCESS/FAILURE DEPENDING ON RESULT OF SEARCH 
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1 
1 
1 
1 
1 
i 
1 
1 
OFFC 14 -ENTRY DCLSUTLSERV, “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> 
DO 118 MOVL §RQDESC(AP),R ADDRESS OF THE REQUEST DESC IPT OR 
ED 11 CMPZV ct $V arite ACLISS pritye.- 3 THIS IS A REQUEST FOR A CLINT SERV 
114 LROTYPE(R9) -ACLISK_C 
i 115 BNEQ 38 at cu RANCH IF NO 
91 9 38: cnPe SCLISK, CLISERV, CLISB =RaTyPE Ane) Aottis IS A REQUEST FOR A CLI SERVIC 
BE 119 CHMS CL1$W_SERVCOD(R9) THIS MUST BE DONE IN SUPER MODE 
120 BRB RET ? RETURN TO REQUESTOR 
ry) 121 5$ ROWORK (AP) R10 : GET ADDRESS OF WORK AREA 
1 : 1FNORD ge ar LD WRK(R10),10$°; CHECK IF WORK AREA 1s ACCESSABLE 
1 v RPU R10) Rat 3 IF YES-GET THE WORK AREA 
124 10$ CLRB ss CLI Ar CRS) : INITIAL RETURN STATUS FLAGS 
C ¢ 125 Ctra «CLI “ROBESecnds : AND ZERO THE PARAMETER DESCRIPTOR 
F 1 3 : FROM THIS POINT ON, RS MUST ALWAYS CONTAIN THE TOKEN DESCRIPTOR 
F 1 : OF THE CURRENT TOKEN BEING PARSED SO THAT ERROR REPORTING WORKS. 
D0 F 130° MOVL : SET DEFAULT RESULT PARSE INDEX 
FA CALLG tO B*RSLTPR 3 CALL FOR ERROR FRAME 
ce ISL CLI$_ABKEY “KOFFF00005, RO; INCLUDE SUBSYSTEM NUMBER 
E \ ; BLBS RO. Hero : BR IF NO ERRORS 
135 : CALL ERROR ACTION ROUTINE WITH ERROR. IF THE TOP BIT OF RO IS SET, 
1 6 > THEN R2/R3 CONTAIN THE DESCRIPTOR OF THE TOKEN IN ERROR. IF RS IS 
1 3 NON-ZERO, IT CONTAINS THE TOKEN INDEX OF THE TOKEN IN ERROR. 
4 1 } GALERR: BBSC #INTERROR,RO, 108 : BR IF THIS IS A INTERNAL ERROR 
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eae 
SS=SR 


Sz 
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7 4 14 cura R : PRESET TOKEN DESCRIPTOR TO NULL 
é 4 T R : IS TOKEN IN DEX VALID? 
48 16 BLE 108 : IF NOT, THEN R TURN NULL DESCRIPT 
D04A 14 SBW p LSGETEXTDESC : save APART DESCRIPTOR(POINT OF ERROR) 
DD 0040 14 USHL 3 SAV eet) ie OF ne 
p F 145 INCL t ADVANCE T 
1 146 BSBW D¢LsgETEXTDESC ; TAKE THAT 
D 4 14 MOVL : COPY ENDING. ADDRESS OF ERROR 
BA 148 POPR Fe ACa3 : GET POINT OF 
+ 9 164 SUBL  R3,R2 : FIND LENGTH OF ERROR SEGMENT 
. = % DECL : BACKUP TO 0 PRECE DING TERMAINATOR 
1 CMPB 489s. #P TR_K_ENDLINE,R1 $ WAS ERROR AT END=OF -LINE? 
bi BNEQ 108 : BR I att CT 
p 53 INCL R + ADJUST LENGTH FOR LAST LAST BYTE IN TOKEN 
D 0065 154.108:  ##MOVG  R2,CLI$Q_RODESC(ROD + SET IN DESCRIPTOR 
p 9 5 PUSHL cuisA A_ERRACT(R9) ; GET USER ERROR ROUTINE ADDRESS/OF FSET 
E $ 1 g BBS acLISy ABSADR*+<CL1$B -ROFLGS*B>, (R »,20$ ; BR IF ADR IS ABSOLUTE 
¢ 1 Fi ADDL R9, (SP 3 FIND REAL appress OF ROUTINE 
D 75 159 208:  MOVL Rio}. R11 3 SET USER CONTEXT WORD 
Dp 78 (O 0 PUSHL R11 : AND PASS IN ARGUMENT LIST 
C 7A 1 BISL #<CLIS_ABKEYWE*XOFFFO000>,RO ; INCLUDE SUBSYSTEM NUMBER 
DD 1 #1 2 PUSHL RO ; ERROR CODE IS SECOND ARGUMENT INPUT 
DD : 163 PUSHL R9 $ REQUEST DESCRIPTOR IS FIRST ARGUMENT 
FB 1 CALLS #3,@12(SP) ; GIVE THE USER CHANCE | 10 HANOLE ERROR 
04 i 188 RETO: RET + GO BACK FROM CALL BAC 
A 1 3 
A is : RESULT PARSE DISPATCHER 
008A 170° 
0000 008A 171 RSLTPRS:.WORD 0 REGISTERS ALREADY SAVED! 
EF O008C 1 ; EXTZV act sy PRITYP, ACLISS_PR rifye.- : rietRA CT THE PRIMARY REQUEST 
D08F = 17 RQTYPE(A9),RI” =; Fon REQUEST DESCRIPT 
13 0091 17% BEQL : BR IF "REQUEST 1S UTILITY YPE 
EF 0093 175 EXTZV crite SUBTYP,#CLI$S_SUB uatyen - ; GET THE PARAMETER NUMBER 
ii 1% ROTYPE(R9) RO” ; OR SUB TYPE FOR RESULT 
00 17 CASE RT. : DISPATCH ON REQUEST TYPE 
ii 178 LIAL T=#CL 18k LINPSPEC,<= :STARTING WIIH INPUT SPECIFICATION 
D098 «17 SETQU $ REQUEST FOR INPUT DEF INTION 
ii 180 SET UAC t REQUEST FOR OUTPUT DEF INTION 
ii 181 CMPPRM, : COMPLETED WITH PARAMETER SET 
ii i DCLSVALCWV,~ $ REQUEST FOR VALUE CONVERSION 
D0A4 1 ; FALL THROUGH ON UTILITY OR ERROR 
DOAS «185 108: = CASE. = CLISB_RQTYPE(R9) ,- t DECODE UTILITY REQUEST 
OAS 186 LIMITE@CLISK INIFPRS.- ; LOW VALUE FOR CASE 
00A4 TyPEs® <- : Type OF CASE IS BYTE 
DOA, 188 DCLSRPINIT,- > INIT RESULT PARSE 
OAS shan ; GET COMMAND LINE DESCRIPTOR 
D0A4 SETO : SET QUALIFER STATE 
DOAG 1 DCL$G ETOPT : GET COMMAND OPTION 
D0A4 «19 DCL cet Ll NES. : GET COMMAND LINE 
dad 19 DCLSG TLINE* : @® CLISERV SPACE HOLDER ** 
34 138 SETSTAT INVREQTYP INVALID REQUEST TYPE 
04 0089 196 RET : DONE WITH THIS COMMAND 
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«SBTTL ENDPRM CALLBACK 


FUNCTIONAL DESCRIPTION: 
THIS ROUTINE wractices WHEN ALL QUALIFIERS AND 


CHECK IS me "10 ENSURE THAT A FIERS 
present ON T 3 bere Cine HAVE BEEN PROCESSED 


15 
i $ 
18 ; 
DOCC $ 
DOCC 3 
DOC 3 
DOCC 3 
tit : THE UTILITY 
cc 28 
35 § : INPUTS: 
CC § ; Ro = PARAMETER NUMBER TO BE TERMINATED 
€C : R9_= ADDRESS OF REQUEST DESCRIPTOR BLOCK 
aa 6 : R10 = ADDRESS OF IMAGE LOCAL WORK AREA 
ce ; R11 = ADDRESS OF PASS 1 PARSE WORK AREA 
c¢ § : OUTPUTS: 
c¢ $3 THE REQUEST IS PROCESSED. 
CC $ iMPPRM: 
56 40 AAGO DE CC 8 MOVAL RPW_G_PRMLIM(R10)CROJ,R6 ; SET ADDRESS OF PROPER tint DESC 
7 1 7D 00D1 9 mMOVa #1, =(SP) ; SET SUCCESS PLUS A ZERO LONG WORD 
5 E 00 0004 240 MOVL  SP,R8 ; MARK ‘POIN NT OF ERRO AME TERS 
0007 241 ; NOTE: RS WAS ZEROED te INITIAL ENTRY 
08 AA 55 9 0007 4g 10$ cps RS,RPW_B_STRPARM(RI0) =; is INDEX A AT END COMD QUALIFIER AREA? 
55 0146 9A O0DD 264 MOVZBL PLM_B_FSTDESC(R6) RS ELSE SET START OF PARAMETER AREA 
60 13 00E 45 BEQL : BR IF PARAMETER IS NON-EXISTANT 
02 A6 91 00E 46 208:  CMPB_ «RS PLM_B_LSTDESC(R6) = ;_IS INDEX OUT OF CURRENT PARAMETER? 
1A. 1A_—«OOOE 4 BGTRU : BR IF ALL DON 
FFI4" 30 O0E9 48 SBU ==: OCLSGETEXTDESC ; GET AND EXTRACT DESCRITPTOR 
EC 26 ASSUME PTR_K_PARMQUAL EQ 1 : 
EC 30 ASSUME PTR K“COMDQUAL EQ 0 ; 
01 51 91 OOEC CMPB 1, #PTR_K_PARMQUAL 3 ANY KIND OF QUALIFIER? 
OF 1A OOEF 2 BGTRU 3 IF NO BR AND CONTINUE SEARCH 
09 20 AA EO Fl : BBS aT RS AR RPW af BITS(R10),40$ : BR IF THE QUALIFIER HAS BEEN SEEN 
46'AF $f FA OOFB 5 ALLG (A 4 yeti bos : PROCESS ERROR CALL BACK 
06 FF 6 40S: NCL) OR : ADD 1 TO BUFFER INDEX 
D4 BRB 10$ : KEEP LOOKING 
55 9A 50$:  MOVZBL PLM_B_NXTDESC(R6).RS §§ ; NEXT DESCRIPTOR TO PROCESS 
3 BEQL $ : BR IF NO PARAMETER PRESENT 
02 A6 91 CMPB PLM_B_LSTDESC(R6) § ; ALL BEEN PROCESSED 
09 «1A C BGTRU ¢ : BR IF YES 
SETSTAT NPROPARR : UNPROCESSED PARAMETERS 
46'AF 6C FA CALLG AP) ,B*100$ : GENERATE AN ERROR 
55 02 9A 011 55$:  MOVZBL PLM 3 LLSTDESC(R6).RS § ; INDEX TO LAST DESCRIPTOR 
36 18 5 INCB : SET TO NEXT DESCRIPTOR INDEX 
03 A6 1 CMPB =saR5,,PLM_B_TRMDESC(R6) =; IS THIS THE T RAINATOR DESCRIPTOR? 
BGEQU aos : BR IF VES“NOTHI MORE TO DO! 
66 mOVB R> PLA B_NXTDESC(R6) : SET THAT AS NEXT FOR NEXT CALLBACK 
FED?" $ $ 60$: BSBW a ae PARM : FIND THE NEXT PARAMETER 
OA 9 3 BLBC : BR IF NONE REMAIN 
01 1 c CMPB ;#PTR_K_BLANK : CHECK IF END OF PARAMETER LIST 
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LSTDESC(R6) 


RROR AND PLACE IN THE LINE 


RVIOUS ERROR 


END OF A PARAMETER SET 


TATE MULTIPLE ERROR 
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RPDC = RE PARSE MAIN ROUTINE 16-SEP=1 AX/VMS Macro v04-0 Page 
02-600 INPUT LAD N) ,OU UTUTONS »GETQUAL CALLBACKS §- Ep 138 99: 13: #} DCL. SRCJRPDCL.MAR; . (&) 
A : »SBTTL INPUT(N) ,OUTPUT(N) ,GETQUAL CALLBACKS 
15A ; 
A ; $ FUNCTIONAL DESCRIPTION: 
15A 4 : THIS ROUTINE HANDLES THE INPUT, OU Pur AND GETQUAL 
15A ; CALLBACKS TO SUPPLY AN INPUT/OUTPUT PARAMETER OR 
15A : PROCESS ALL QUALIFIERS ASSOCIATED WITH A GIVEN 
i A ; PARAMETER OR VERB. 
A 4 : INPUTS: 
15A : : RO = INPUT OR OUTPUT NUMBER (IF INPUT/OUTPUT REQUEST) 
15A : R9_= ADDRESS OF REQUEST DESCRIPTOR BLOCK 
15A 8: R10 = ADDRESS OF IMAGE LOCAL WORK ARE 
134 09 : R11 = ADDRESS OF PASS 1 PARSE WORK AREA 
13A 3 : OUTPUTS: 
13A 13 : THE REQUEST IS PROCESSED. 
13, 15 SETQUAL: 
58 OC AC 00 13 1g MOVL § RQBITS(AP),R8 : GET USERS BIT ARRAY 
15€ 18 $ RESET ALL STATUS FLAGS AND DESCRIPTORS FOR ALL QUALIFIER BLOCKS 
13E 19 $ LINKED TO THE CALLING REQUEST DESCRIPTOR BLOCK 
0244'CF DF 136 he PUSHAL W*SCANQUAL : SET INITIAL ADDRESS FOR QUALIFER SCAN 
9E 16 016 : 10$: JSB a(SB)s t CO-ROUTINE LINK TO SCAN QUALIFIERS 
08 £9 164 BLBC 20s : BR WHEN ALL ARE SCANNED 
4 0167 4 CLRB ef B_QDSTAT(R7) : RESET ALL STATUS FLAGS 
7C O16A 5 CLRO cL 1Sa- QDVALDESCXR) 3 SET VALUE DESCRIPTOR TO ZERO 
1 160 : BRB : TRY FOR NEXT 
16F 3 : IF GETQUAL REQUEST, THEN FOR EACH QUALIFIER DESCRIPTOR BLOCK LINKED 
16F 9: TO THIS REQUEST DESCRIPTOR, PROCESS THE COMMAND QUALIFIER (IF PRESENT). 
02 69 91 1g 1 308:  cmPB i om ROTYPE(R9) ,ACLISK_GETQUAL + IS THIS REQUEST FOR QUALIFER 
OA 42 1 ; 2 BNEQ ; DEFINTION ONLY- BR IF NO 
ce AB 17 MOVB B_VERBTYP(R11).- |: SET COMMAND GENERIC VERB TYPE INTO 
Ag 177 4 Cr ise- ROSTAT(RO) $ REQUEST DESCRIPTOR STATUS BYTE 
O38E 30 179 5 BSBW DCL SPROCADQUAL : FIND COMMAND QUALIFIER 
4 43 $ BRB 4 : TAKE ACTION 
i5E g; ? IF INPUT(N) OR OUTPUT(N) REQUEST, THEN FIND THE PARAMETER OR QUALIFIER 
Wve R DESCRIBING THE INPUT OR OUTPUT AND PROCESS IT. 
7 17 41 35$ BSBY ss PROC I : PROCESS INPUT/OUTPUT DESCRIPTION 
52 et an 1 5 é MOV ZBL sit BITNUM(RO) .R2 > GET THE PAI RAMETER PRESENT FLAG BIT 
£0 01 3 4 cite 0_PARMPRS : BR IF THE P TER IS PRESENT 
14 O3 A 1 4 B,ROSTAT(RS), 308_— 
1 45 CLRBIT He : INDICATE PARAMETER ABSENT 
1 46 SETSTAT REGp $ : SET REQUIRED PARAMETER ABSENT 
“ 02 y £0 is BBS ac Fie aM son BR IF PARAMETER 1S REQUIRED 
4 A 1 4 MOVL AABSACT(R9) RI : GET PARAMETER ABSENT ACTION ADDRESS 
’ 6 00 19¢ 350 BRB $4 . : JOIN COMMON ROUTINE 


eto 


PRESENT ACTION ADDRES 
BR_IF NO PARAMETER AC 


; ON 
: SET ADDRESS OF ARGUME 


110$:  MOVL A_PRSACT(R9) .R1 
128 MOVE iste 1°¥o CALL WITH 


$s 
5 MOVL RY, N 
$ BSBB CALLBAK 


ISSUE CALL BACK 
130$: SETSTAT SUCCESS 


SET GOOD RETURN 
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RPDC = RESULT PARSE MAIN ROUTINE 16-SEP-1984 00:13: AX/VMS Macro V04-0 Page 
vO4-000 INPUT CH) ,OUTPUT CN »GETQUAL CALLBACKS $= sats 7 99:13:39 eee Heep e mancs . (3) 
19 30$:  SETBIT R2,(R8) : SET PARAMETER PRESENT FLAG 
1A ; JNETIALIZ 4 COROUTINE START ADDRESSES FOR THE FOLLOWING 
1A 4 : 4 PASSES THROUGH ALL OF THE QUALIFIER DESCRIPTOR BLOCKS LINKED 
A 3 TO THE REQUEST DESCRIPTOR. 
0244°CF OF OIA : 40$:  PUSHAB W*SCANQUAL 3 SET INITIAL COROUTINE ADDRESS 
6— DD OIA PUSHL (SP) ; COPY COROUTINE INITIAL ADDRESS 
6— DD OA PUSHL (SP) : THREE MORE TIMES FOR 
6— 0D AA 6 ; PUSHL (SP) : SUBSEQUENT SCANS OF QUALIFIERS 
TAC ; MARK ALL QUALIFIERS WITH DEFTRUE AS BEING PRESENT 
3 16 1AC 4 45s: se a(sPp)+ ; GET NEXT QUALIFIER DESCRIPTOR 
1A E TAF 65 BLBC =_-« RO, 508 : BR WHEN CAN IS DONE 
F6 93 a? 03 £0 1B 28 BBS ect isv QUALEXP, CLISB_QDSTAT(R7) .45$ ; LOOP IF FOUND EXPLICITLY 
1 0107 SA 0186 36 MOVZBL CLI$8_GDCODE(R?) RI : GET THE INDEX INTO THE TABLE 
FEGS" 30 O1BA 8 BSB DCLS$GE TPARMQUAL * FIND THE ASSOCIATED STRUCTURE 
EA 04 4 0 1 018 6 BBC #ENT_V_DEF TRUE, ENT_W_FLAGS(R2) ,45$ ; BR IF NOT DEFAULTED TRUE 
03 A 1 8 1c 20 BISB #CLISM"QUALTRU,CLISB-QDSTAT(R7S ; MARK QUALIFIER TRU 
O3EE iC 7 BSBW oct SETDEFVAL : SET UP THE DEFAULT VALUE IF THERE 
e111 1c9 tg BRB 4 + LOOK AT NEXT 
1cB 4 : FOR ALL QUALIFIERS NOT PRESENT, CLEAR THE ASSOCIATED BIT IN THE BIT MASK 
3 16 1¢B 06 Sos: JSB a(sP)+ : GET NEXT DESCRIPTOR 
0A 50 «£9 «(O01CD) «(37 BLBC = RO, 60 : BR WH NNO MORE 
F603 A? 00 £0 109 A: BBS acl sy QUALTRU, CLISB_QDSTAT(R7),50$ ; BR IF TRUE 
O2EF 1D 7 BSBW pL CLRSETLST : CLEAR THE BITS 
F111 108 p BRB $ LOOK FOR MORE FALSSE QUALIFIERS 
1A 3 : FOR ALL QUALIFIERS PRESENT, TEST/SET THE ASSOCIATED BIT IN THE BIT MASK 
3 16 1DA 4 60$: JSB a(sP)+ : GET NEXT QUALIFIER DESCRIPTOR 
13 E9 01DC 3 BLBC =—_- RO, 1008 : BR WHEN NO MORE 
F603 A? (00 3 1DF 6 BBC #CLISV_QUALTRU, CLISB_QDSTAT(R7) .60$ ; BR IF FALSE 
F3 AF 6OSF)=«(O1E4 PUSHAB 8° : SUBR TINE RETURN ADDRESS 
03 03 A? (01. =«E1—sCOO1E7 BBC #CLISV_QUALEXP,CLISB_QDSTAT(R7),70$ ; BR IF NOT EXPLICITLY FOUND 
0 5 i 1EC BRW DCLSTSTSETLST : TEST fHEN SET SET LIST, ETC. 
cc 31 IEF ; 70$: BRW DCLSSETSETLST : ONLY SET THE SET LIST FOR DEFAULTS 
Ir 3 : FOR ALL QUALIFIERS, CALL THE ASSOCIATED ACTION ROUTINE (IF ANY) 
? 16 1Fo 34 {00$: SB a(sP)+ : GET NEXT QUALIFIER DESCRIPTOR 
08 E9 O1F 5 BLBC §~=E=._—s«aROO,, 1108 : NNO MORE QUALIFIERS 
10 £0 O1F7 %6 BBS ectisy ALLOCCUR+<CLISB_QDFLGS*8> = ; IF ALL OCCURANCES IS SET 
7 ao ole esse uaAet” ¢ CALL BACK ALREADY BEEN —_ 
F3 19 IED 38 BRB 1308 : TRY FOR NEXT 
Ire ’ : CALL THE PARAMETER PRESENT/ABSENT ACTION ROUTINE (IF ANY) 
i OFFSET 
Ht 
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INPU Th) OUT 
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408 140$: 
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UAL CALLBACKS 


RET 
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UL 
TION 
it : «SBTTL ACTION CALLBACK SUBROUTINE 
412 : 
41 3 FUNCTIONAL DESCRIPTION: 
HE CALL THE USER'S ACTION ROUTINE IF SPECIFIED. 
: ‘i? > INPUTS: 
419 ; R7_= ADDRESS OF QUALIFIER DESCRIPTOR BLOCK 
420 ; R10 = ADDRESS OF IMAGE LOCAL WORK AREA 
4e1 : R11 = ADDRESS OF PASS 1 PARSE WORK AREA 
: 4 4 , -ENABL LSB 
4 6 QUALACT: BBC #CLISV_QDEXPA cL1se QDFLGS(R7),5$ ; BR IF ACTION ALWAYS DESIRED 
4 BBC acl I$veau QUALEXP. CLISB_QDSTAT(R75,40$ ; IF NOT EXPLICIT 
1B 4 : 5$ MOVL cLISA ACTXRID CRI ; ASSUME QUALIFIER IS FALSE 
“= #6 BBC acl ‘of S ALTRG - : BR IF THAT ASSUMPTION 
1—E 430 CLISB_GDSTAT(R?),10$ |: WAS CORRECT 
431 MOVL §¢ CL ISA TRUACT(R7).R1 + GET TRUE ACTION ADDRESS OFFSET 
4 2 10$ BEQL its $ BR IF NO ACTION ROUTINE 
z 4 : MOVL RO + ARGUMENT FOR CALL BACK 
A 4353 
A ‘ $ : ENTER HERE WITH RO SET TO ACTION ROUTINE ADDRESS 
A 438° 
A & 8 CALLBAK: BBS #CLISV_ABSADR+<CLISB_ROFLGS*8>,(R9).208 ; BR IF ADR IS ABSOLUTE 
F 440 ADDL _RO,R1 S RELOCATE ADDRESS 
441 208:  MOVL (R10),R11 : SET USER CONTEXT WORD 
4 44g USHL R11 : PASS USER CONTEXT WORD 
64 & PUSHAB DCLSUTLSERV : GIVE THE ACTION ROUTINE CALL BACK ADR 
A 46s USHAB (RO) : PASS CALLERS STRUCTURE AS ARGUMENT 
C 445 CALLS #3, (R1) : CALL THE ACTION ROUTINE 
F 446 MOVL RPW_L_DCLWRK(R10),R11 ; RESET THE COMMAND WORK ADDRESS 
43 44 40$ RSB : RETURN TO MY CALLER 
44 4h .DSABL LSB 
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«SBTTL SCAN QUALIFIER DESCRIPTOR LIST 


; FUNCTIONAL DESCRIPTION: 

: THIS tara: 1s SED TO SCAN THE UTILITY's QUALIFIER 

; DESCR PTOR B otk S LINK NKED TO THE CURRENT REQUEST DESCRIPTOR. 

; LLER I BACK ONCE FOR EACH QUALIFIER DESCRIPTOR 

; sr bck MOTEL Ro ts RETURNED FALSE. 

} INPUTS: 

; RO = ADDRESS OF REQUEST DESCRIPTOR BLOCK 

; OUTPUTS: 

: R7 = ADDRESS OF QUALIFIER DESCRIPTOR BLOCK 

; RO = = TRUE IF STILL MORE TO GO, 

; ALSE IF NO MORE LEFT 

SCANQUAL: : SCAN QUALIFIERS 
MOVL shat QUALST(R9) .R7 3 GET OFFSET 10 QUALIFIER LIST 
BEQL : BR IF NONE al ALL 
BBs #CLISV_ABSADR+<CL1SB_ROFL Se8>(R 9) 108 <! 7BR If ADR IS ABSOLUTE 

10$: SETSTAT NO NORMAL tA ASSUME MORE COSALIFIERS TO PROCESS 
BEQL : BR IF END OF LIST 
JSB a(SP)+ : RETURN WITH A DESCRIPTOR 
MOVZBL ; is _QDBLKSIZ(R7),RO  : GET SIZE OF DESCRIPTOR 
ADDL R ; ADVANCE TO NEXT BLOCK 

20$:  SETSTAT INVQUAL : RETURN AN ERROR 

RSBO: RSB : RETURN TO CALLER 
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THE OUTPUT PARSE INDICATOR IS NEGATIVE, THEN SIMPLY USE 
‘; mee PARAMETER NUMBER BY INDEXING INTO THE PARAMETER 


GET OUTPUT PARSE jmpicaren 
PARAMETER OR QUALIFIER? 
BR IF OUTPUT IS DEFINED BY Sua IF TER 
; ELSE IT IS A FORMAL PARAMETER 
LOCATE THE QUALIFIER DESCRIPTOR WHICH DESCRIBES THIS OUTPUT 
0$: BSBW DCLSGETQUALDESC ; FIND DESCRIPTOR FOR QUALIFIER #(R1) 


IF THE QUALIFIER IS DEFAULTED TRUE, SET THE OUTPUT PRESENT AND DEFAULTED. 
NOTE THAT THE PARMPRS AND PARMDEF FLAGS HAVE ALREADY BEEN PRESET FALSE. 


BBS #ENT_V “BEE TRUE ENT W_FLAGS(R $; ene iF DEFAULTED TRUE 
BBC acNT. VIBATDEF ,ENT_O ares taey 88, 63° F_ NOT BATCH DEFAULTED 


GET ADDRESS. OF PRC IN R11 


CVTBL (R1)CROI.R1 
CMPB eben te 


BLEQU 
BRW 
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4 .SBTTL PROCESS AN INPUT/OUTPUT REQUEST 
488 ; 
4 3 FUNCTIONAL DESCRIPTION: 
491 ; THIS ROUTINE | 1s CALLED TO PROCESS A IVEN INPUT OR 
492 ;: oP oR UTILITY. TH INPUT 0 MAY BE 
493 : PECIFIED EITHER BY A PARAMETER OR QUAL i R, DEPENDING 
4 ; ON THE COMMAND DEFINITION. 
é ; INPUTS: 
43 : R9_= ADDRESS OF REQUEST DESCRIPTOR BLOCK 
; R10 = ADDRESS OF IMAGE LOCAL WORK A 
; R11 = ADDRESS OF PASS 1 PARSE WORK AREA 
: OUTPUTS: 
4: PARMPRS BIT IS ser IF INPUT/OUTPUT IS PRESENT 
53 QUADWORD DESCRIPTOR DESCRIBES INPUT/OUTPUT SPECIFICATION. 
6 5 bROCIO: 
0 09 EF 026 8 EXTZV #CL sv, SuBTYP ACLISS_SUBTYP.~ ; AND THE SUB TYPE VIELD 
69 68 CLI ae PE CRO) »RO IN 
04 ED : 19 CMPZV ertdarr PRITYP ACLISS_PRITYP.-; CHECK THE PRIMARY REQUEST TYPE TO 
2 3 1 cul PE(R9) ,ACLISK KOU! utéP Ec SEE IF REQUEST IS FOR OUTPUT 
3 7 1g BEQL UTP: F REQUEST 1S FOR OUTPUT 
0121.31 7 13 BRW out : terse’ process INPUT 
Ms 15 $ PROCESS REQUEST FOR AN OUTPUT SPECIFICATION 
5 i$ duTPuT: : REQUEST ID FOR OUTPUT SPEC 
51 02 AB 09 77 8 VL WRK_L_PAROUT(R11),R1 =; SET POINTER TO OUTPUT PARSE TABLE 
FA 78 OS BEQL RsB0 : BR IF NO TABLE 
81 ; 91 0270 0 CMPB (R1)¢ + REQUEST IN RANGE? 
eS i1€ bs BGEQU Rs60 : BR IF NO 
4 
+ 
a} 
4 
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16-SEP-1984 00:13: AX/VMS Macro V04 Pa 14 
g-3é sets 9:1 3:0) DCL. SRCIRPOCL.MAR; ve 
MOVL 3; #0 yA w 
POPL : Res Tone 
258: ef a ih ate tirshee LAS $RO) 508 gQnanch IE NT, parc DEFAULT 
‘ ROSTAT (ROS. sf? ; fn’ab ST STATUS BYTE 
$ IF THERE I$ A DEFAULT VALUE ASSOCIATED WITH THIS QUALIFIER, THEN 
; ReTURn "it ‘gk Pron IN the saeOUE ST DESCRIPTOR BLOCK. OF SE, 
: THIS IMPLIES THA RIPTOR SHOULD Y BE USED IF TH 
; Phanpae 6 Is, cer si weer Vee VALUE WILL ALWAYS BE THERE EVEN THOUGH 
3 THE QUALIFIE 
$0s: cuTuL GYT-W_DEFVAL(h2) .RO : GET OFFSET TO DEFAULT VALUE 
BEQ + BRANCH IF NONE 
ADDL ’ R + CALCULATE ADDRESS OF COUNTED STRING 
MOVIBL teoye guise RODESC(R9) +: STORE LENGTH INTO VALUE DESCRIPTOR 
ROVE RO,CLI$G_ROBESC+4(R9) : AND ADDRESS 
3 LOCATE THE LAST OCCURRENCE OF THE QUALIFIER ON THE COMMAND LINE 
$5$: CLRL <=(SP) ¢ MAKE SPACE FOR PARAMETER LIMIT DESC 
CLRG = =( SP) 3 ser VALUES FOR QUALIFER TO ZERO 
-  PUSHAB W*DCLSFNDCMDQUAL + SET COROUTINE ADDRESS 
40$: JSB a(SP)+ : COROUTINE LINK 
BLBC =—_-« RO, 50 : BR IF NO MORE COMMADN QUALIFIERS 
CAPS AW pre _B_NUMBER(R4) ,R1 ; Is MIS THE AUALIFIER FOR THIS OUTPUT? 
MOVa RG, 4<sP), ; save DESCRIPTOR ADDRESS AND INDEX 
MOVL Reap : SAVE PARAMETER LIMIT DESCRIPTOR 
SETBIT np 5 BITS«RIO) : INDICATE THAT QUALIFIER WAS USED 
BRB : LOOK FOR ANOTHER OCCURANCE 
: SET THE PARMPRS AND PARMDEF FLAGS DEPENDING ON WHETHER THE 
; QUALIFIER WAS FOUND AND WHETHER IT IS NEGATED. 
Sos: mova ($P)+. RG : RETREIVE PARAMETERS FOR LAST OCCURANCE 
MOVL {SP)+,R6 3 RESET PARAMETER LIMIT DESCRIPT 
BEQL BR IF NOT IN COMMAND EXPLICITLY 
BIcB es PARMPRS {CLISM PARROFE = CLR PARAMETER PRESENT & DEFAULT 
cL ROSTAT al” REQUEST STATUS BYTE 
BBS RO NEGATES m 80$ ;'BR IF ASSUMED CORRECTLY 
B1S8 PCLISH™ PARMPRS ,CL1$B_ BR db, MS 3 SET EXPLICITLY PRESENT 
3 IF THERE IS A VALUE ON THE oe USE THAT VALUE 
. ADDL #PTR_C ENGTHAR 3 ADVANCE POINT ER TO TO NeXT DESCRIPTOR 
BSBu Roe SLoest : TAKE DESCRIPTOR AP 
CMPB #PTR_K_QUALVALU : 1S THIS A QUALIFIER VALUE? 
; BEQL : BR IF FILENAME HERE AS QUALIFIER VALUE 
$ USE THE FILE SPECIF ICATION ON THE PARAMETER FOR THIS QUALIFIER 
; REMOVING THE FILE TYPE AND VERSION 
é0$: ovECL R : BACKUP IN RESULT PA ARSED DECSRIPTOR 
BLEG 808 3 BRANCH F NO PREVIOUS PARAME ERS 
CAPB «=s«aRS,PLM_B_FSTDESC(R6)  ; IS THIS IN THE CURRENT PARAMETER 
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95$: MCOML = R1,RO 


; COME HERE WHEN INPUT IS REQUESTED (MUST 


PN ee 
NOUNS NO 
. . 


INPUT: MOVAL RPW_G_PRMLIM(R10)CROJ,R6; 
3 RETURN THE VALUE OF THE PARAMETER DESCRI 
3 LIMIT MARKER POINTED TO BY R6. ALSO, P 
: ASSOCIATED WITH THE PARAMETER. 
BSBW DCLSEXTNXTDESC : 
BLBC =E_«aRO, : 
mMOVa sR CL18a ROQDESC(R9) : 
BISB #CLISM_PARMPRS,- : 
cul RQSTAT(R9) : 
PUSHL R 3 
BSBW DCLSPROCMDGUAL : 
POPL R : 
10$:  ®BSBY OD LSEXTNXTDESC : 
BLBC }3=—s_—«R 0, 90S : 
CAPR = sR}, #PTR_K_PARMQUAL ; 
BNEQ 30$ ; 
PUSHAB SCANQUAL : 
208: JSB a(SP)+ : 
BLBC =—_- RO, RET ; 
CMPB =s PTR_B_NUMBER(R4),- : 
Gt 1$B-QDCODE (R7) : 
BNEQ : 
TSTL  (SP)+ : 
pseu SHANDLQUAL ; 
30$:  CMPB R1,#PTR_K_PARAMETR : 
BNEQ 108 3 
DECB PLI_B_NXTDESC(RG) : 
CMPB =—s- PLB“ NXTDESC(R6),- ; 
PLM~B-LSTDESC(R6) : 
BGTRU : 
B1SB #cL ISA CONCATINP,- ; 
CLI$B_RQSTAT(R9) : 
90$: RSB 3 
RET1: RET 
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3b 
Base 


BE A PARAMETER) 

GET ADDRESS OF PARAMETER LIMIT ENTRY 
BED 
OcE 


y THE PARAMETER 


SS ALL QUALIFIERS 


i NEXT DESCRIPTOR APART 
SAVE mpeness OF PARAMETER 
E G THA 


T FLA T PARAMETER IS PRESENT 
IN USERS REQUEST STATUS BYTE 

SAVE PARAMETER DESCRIPTOR POINTER 
TAKE CARE OF COMMAND QUALIFIERS 
RESTORE PARM LIMIT DESCRITPTOR POINTER 
TAKE THE NEXT DESCRIPTOR APART 

BR IF NO MOR 

1S THIS A PARAMETER QUALIFIER 

BR IF NO 

SET INITIAL COROUTINE ADDRESS 

GET NEXT DESCRIPTOR 

NO FIND 1s AN ERROR 

IS THIS THE QUALIFIER DESCRIPTOR? 

IF NO LOOK AT NEXT 

CLEAR COROUTINE ADDRESS 

SET UP QUALIFER RESULT PARSE DATA 
CHECK FOR MORE 

THE NEXT PARAMETER 

BR IF NO 

BACK UP INDEX FOR NEXT RESULT PARSE 
CHECK IF NEXT IS LEQ LAST, 

IN THE CURRENT PARAMETER 

IF GTRU, NO MORE ELEMEMTS IN THIS SET 
SET FLAG TO SAY CONCATONATED INPUT 
LIST IS NO EXHAUSTED. 

BACK TO 1/0 PROCESSOR 
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Vvo4=b00 


EAL VALUE 
ONVERSION ERROR 


j FOR VALUE LEGAL 


ONVERSION 
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LISL_RQVALU(RY) 
gg ts. 


SETSTAT VALCNVERR 
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ETSTAT INVREQTYP 
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A ei «SBTTL PROCESS QUALIFIER 
A 3 FUNCTIONAL DESCRIPTION: 
A : THIS ROUTINE I$ CALLED TO P ROC Ess A QUALIFIER FOUND IN THE 
A ; COMMAND LINE, AND SET ALL UTILITY STRUCTURES CORRECTLY. 
A ; CALLING SEQUENCE: 
A ; BSB/JSB DCLSHANDLQUAL 
A 4 + INPUT PARAMETERS: 
A § ; RG CONTAINS THE ADDRESS OF THE RESULT PARSE DESCRIPTOR FOR THE QUALIFIER 
A 6 ; Ro is RESULT DESCRIPTOR FOR THE QUALFIER 
A 8 ; R bout aias THE ADDRESS OF THE UTILITY QUALIFIER DESCRIPTOR 
3 A 2 : IMPLICIT INPUTS: 
3 A i : Rg = ADDRESS OF UTILITY BIT ARRAY 
A 973; = ADDRESS OF REQUEST DESCRIPTOR 
\ 55a O74: R10 = ADDRESS OF WORK BLOCK 
. 33 0 ; R11 = ADDRESS OF PASS 1 PARSE WORK AREA 
334 rs : OUTPUT PARAMETERS: 
33h $79 : UTILITY QUALIFER DATA STRUTURE IS SET PROPERLY 
33 981 :-- 
33 98¢ .ENABL LSB 
33h 984 DCLSHANDLQUAL:: : PROCESS A QUALIFIER 
04 a7 7C OS5A 985 CLRQ ¢ 1$Q_QDVALDESC(R7) : SET VALUE TO NON 
ssp 9 6 SETBIT R5,RPO_G BITS(R10) : COUNT THIS QUALIFIER AS PROCESSED 
02 88 56¢ 9 BISB pet SH Q0A ALEXP - 3 SET FLA g To INDICATE QUALIFIER WAS 
03 A 6 4 8 $8 0D (R?) EXPLICITLY FOUND 
03 A? 01+ = BA C(O 66 9 BICB acti a "RUAL TRU, CLISB_ anstatr ) END SET STATE TO FALSE 
14 €0 368 9 BBS ATE : BR IF THE ASSUMED STATE.FALSE, 
3¢ 64 6c 99 Mas BESCRCRA) 2408 : BR IF ASSUMED COR : L 
1 88 36 36 BISB aT AG 3 ASSUMED INCORRECTLY, SET STATE OF 
03 A7 5 99 1$B aperat RP) : QUALIFIER TO TRUE 
06 18 €D 3 4 CMPZv  #PTR_9_TERM RTRs $_TERM TERMINATOR VIELD LIMITS 
02 64 7 95 ptr_C bes cRiRG) /APTR_K_ tougw EXPLICIT VALUE GIVEN? 
07 13 057 6 BEQL DELSSETG VAL F YES SET USER SPECIFIED VALUE 
04 8 €D 0579 CMPZV Ab Wi TERM,- ; TERMINATOR VIELD LIMITS 
7 64 7¢ 38 44 RY Va gentray” WTR r "concn EXPLICIT VALUE GIVEN? 
B 12 37 99 BNEQ POS” 1f NO, SET DEFAULT IF THERE IS ONE 
580 1000 ; DROP THRU TO RETURN EXPLICIT OR DEFAULT PRL OE (if ANY) 


<z 


of «SBTTL RETURN EXPLICIT QUALIFIER VALUE 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS CALLED 
A EXPLICIT VALUE ENTER 


CALLING SEQUENCE: 
BSB/JSB DCLSSETQUALVAL 
INPUT PARAMETERS: 


Re IS INDEX TO THE RESULT DESCRIPTOR FOR THE QUALF! 
R? CONTAINS THE ADDRESS OF THE UTILITY QUALIFIER DE 


TO SET_THE STRING LIMITS OF 
ED VIA THE COMMAND STREAM. 


SUSU SUSUSUSUSUOSUSUSIOSIOSIOSION 


ER OR LAST VALUE 
SCRI 


; RIPTOR 
3 IMPLICIT INPUTS: 
5 Rg = ADDRESS OF UTILITY BIT ARRAY 
R9_= ADDRESS OF REQUEST DESCRIPTOR 
5 R10 = ADDRESS OF WORK BLOCK 
5 11 = ADDRESS OF PASS 1 PARSE WORK AREA 
: OUTPUT PARAMETERS: 
; UTILITY QUALIFER DATA STRUTURE IS SET PROPERLY 
5 CLSSETQUALVAL: ; SET QUALIFIER VALUE ONLY 
04a7 7¢ 05 CLRQ CL 1$0_QDVALDESC(R7) : ASSUME NO VALUE PRESENT 
33 ¢ & INCL R : ADV INDEX TO NEXT RESULT DESCRIPTOR 
FA7B° 5 BSBW =: OCLSGETEXTDESC : TAKE THAT 1 APART 
02 51 91 0588 CPB s«R'1, #@P TR_K_QUALVALU : WAS THIS A VALUE? 
1D 12 05 BNEQ 0 : BR IF NO 
C o 3 D PUSHR #*M<R2,R3> : SET CURRENT LIMIT VALUES 
A F BRB 208 : JOIN C LOOP 
g : | 10$ INCL R + ADD 1 TO INDEX INTO RESULT BUFFER 
FAGA' 9 BSBU © OCLSGETEXTDESC : TAKE THE DESCRIPTOR APART 
02 51 91 3% CMPB 1,#PTR_K_QUALVALU : LAST VALUE IN LIST? 
iE BNEQ : F YES-EXIT THE LOOP 
6— 53 c 98 20$:  ADDL3 R2,R3,(SP) : FIND END OF LAST VALUE 
F 1 0598 BRB 10$ $ LOOK FOR MORE 
BA OSA 30$: POPR #*M<R2,R3> : GET VALUE LIMITS BACK 
53 C2 A SUBL R3.Re : CHANGE TO LENGTH 
04 A p MOVG  R2,CLISQ_QDVALDESC(R7) : SET VALU 
0 AA 40$: RSB : PROCESS BIT LISTS-RETURN FROM THERE 
03 69 91 OSAB 70$:  CMPB (R9),#CLISK_GETOPT : IS THIS AN OPTIONS PARSE 
18 413 OSA BEQL 0 : BR IF SO = NO DEFAULT VALUES THEN 
51 05 Aé 2, B MOVZBL PTR_B_NUMBER(R4) ,R1 : GET QUALIFIER NUMBER 
FAG9" 30 058 BSBW  DCLSGETPARMQUAL : LOCATE ASSOCIATED QUALIFER BLOCK 
B7 : DROP THRU TO RETURN THE QUALIFIER DEFAULT VALUE (IF ANY) 
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HCLSSETDEF VAL: ' 
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«SBTTL RETURN QUALIFIER DEFAULT VALUE 


HE STRING LIMIT 


THIS ROUTINE IS CAL E 
SS A QUALIFER THA 


ED TO SET T 
A DEFAULT VALUE ASSOCIATED WITH 
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CALLING SEQUENCE: 


BSB/JSB DCLSSETDEF VAL 


INPUT PARAMETERS 


R2 CONTAINS THE ADDRES 
S THE ADDRES 


S OF DCL INTERNAL QUALIFER DESCRIPTOR 
R? CONTAINS THE S OF THE UTILITY QUALIFIER DESCRIPTOR 
IMPLICIT INPUTS: 
Re = ADDRESS OF UTILITY BIT ARRAY 
RY = ADDRESS OF REQUEST DESCRIPTOR 
R10 = ADDRESS OF WORK a 33 
11 = ADDRESS OF PASS 1 PARSE WORK AREA 


OUTPUT PARAMETERS: 


UTILITY QUALIFER DATA STRUTURE IS SET PROPERLY 


3 RETURN QUALIFER DEFAULT VALUE 
CVTWL ERT .W_DEFVAL (RE) RO ; GET OFFSET TO DEFAULT VALUE STRING 
BEQL 0$ ; BR IF_NO DEFAULT VA 
ADE 4G. 3 FIND REAL ADDRESS OF DEFAULT VALUE 
MOVZBW (RO)+ gt QDVALSIZ(R7) ; SET SIZE OF VALUE STRING 
MOVL RO, cLE A.QDVALADR(R7)  ; AND THE ADDRESS OF THE STRING 
RSB ; RETURN FROM DEFAULT VALUE PROCESSING 
-DSABL LSB 
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3 TAKE PROPER ACTION 
: RETURN TO DISPATCHER 
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«SBTTL GET COMMAND LINE 
FUNCTIONAL DESCRIPTION: 


THI oot thy IS fa ttt D TO SET A DESCRITOR FOR THE COMMAND 
THAT WA T PROCESSED BY DCL. 


CALLING SEQUENCE: 
THIS ROUTINE IS ENTERED BY A CASE FOLLOWING A CALL 
INPUT PARAMETERS: 


R9_= ADDRESS OF neoues! pes cele TOR 
R11 = ADDRESS OF PASS 1 PARSE WORK AREA 


OUTPUT PARAMETERS: 


THE REQUEST DESCRIPTOR IS SET TO CONTAIN A QUADWORD DESCRIPTOR 
THE THE FINAL COMMAND IN THE BUFFER. 


IMPLICIT OUTPUTS: 


THE INTERNAL ERROR MECHANISM IS USED 
COMMAND LINE DESCRIPTOR WHEN COMMAND 


COMPLETION CODES: 


19 oo THE RESULTANT 


1 
1 
1 
1 
1 
1 
1 
1 
i 
1 SUCCESS IN ALL CASES EXCEPT WHEN COMMAND IS A RUN’. IN THIS 
i WAY, A UTILITY MAY DETERMIN THAT IS WAS INVOKED VIA A COMMAND, 
' IE: LINK ALPHA, OR BY A “RUN FILESPEC’. 
1 
1 SCLSGETCHD: : : GET COMMAND LINE 
30 1188 BSBY DCLSGETDCLWR i ASET WORK AREA POINTER 
1 MOVB = WRK_B_ VERBTYP(RI1), CLISB_ROSTAT(R9); GET VERB TYPE FOR CALLER 
ps 1 CLRL =OoaRS 5 START AT FIRST TOKEN 
6 1 BSBW DCLSSETDESCADR 3 SET ADDRESS OF TOKEN DESCRIPTOR 
D 1 Ovi WRK_L RSLEND (R11) ,R GET ADDRESS OF NEXT FREE DESCRIPTOR 
EF 1 EXTZV aPTRE _V_OFFSET .#P ae or ge ET.- ; GET OFFSET TO EOL 
j =PTR“C “CENGTHERD) . R 
09 5 MOVL R2 ag : PRESET FIRST TOKEN TO EOL 
C 1196 10$: ADD #PTR_C_LENGTH KIP TO NEXT TOKEN 
Fo 4 CMPZV  #PTRIV “fH EPEAPTR. S_TYPE, ir ), #PTR KENDLINE ; END OF LINE? 
1 BEQL BRANCH 4 DON 
6D 1 cnPzV srr. V_OFFSET,#PTR_S -orr Ser & . R of inst TOKEN IN COMMAND? 
ef } EXTZV #PTR_V_OFFSET,#PTR_S -oFF SET (R4) 4g ' SET OFFSET TO FIRST TOKEN 
1 RB 108 ~ 3 PRECEEDS FIRST, SET IT AS NEW FIRST 
1203 208:  SUBL R3,R2 FIND LENGTH OF COMMAND 
1 MOVAB WRK 5 BuFFER(RIICR3I, »R3°; GET ADDRESS OF FIRST TOKEN 
1 CMPB #* AN/N,-1(R3) : COMMAND TERMINATOR A SLASH? 
NEQ 308 3 NOT=THEN DON'T INCLUE IT 
wcL) OR t ADD 1 TO COUNT 
1 DECL =R + BACK UP ADDRESS TO TERMINA 
1209 308 MOVG =o gh 180. RODESC(R9) : SET RESULT IN CALLER DATA BLOCK 
D i MOVL 8 #la : SET INTERNAL ERROR BIT 
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9 Pe YES = THER ;/5 NO CORMAND LINE 
st GOOD STATU 
; RETURN TO DISPATCHER 


aus NORMAL 


RPOCL 
Symbol table 
mat 


sussese 
pa F 


$8_ 
$C 


noe 
—ve 


6 
Rar 
te a ae at 


A 
a3 


RRRKEKRL RR 
Sazeee= 
SEeRes 

Eansne 


$* 
: 


RESSESeses 
668 68.8 
ecccetes 
aati 
VO me unm 


= RESULT PARSE MAIN ROUTINE 


83 


02 


Bren 
VALCNVERR 


MAX_PARMS 
LRSETLST 


A 
PARMQUAL 


ALVAL 


—Enonnee tt trata totale nin tnlatatntalatatslatatecstatnlatineeth’ Makerere 
bat 
| pe he hl ye 
Orr a444-4- Om 
rmmPpownvocge 
Pwr AZmMmmcm 
a< 7 


pe 


ratatn) 
SZTITTZOEMAAANAAAAAAAAAAAAAAAAAAAAAOMOOBBereCCCC KCC EC eK 
ee 

oC 


eS ae Eee MMMM MMMMHMMMMMMmmNMMmmMEnMROReereerereree 
233-1— 


ez 
z 


u a 
eure 
o2r™m 


wv 
rT 
Bz 
iy 
é 
—DCxtnwn 


vw 
r 
xz 
y 

6 
nt 


1986 28:03:83 


eereneee 
eetenees 
eeteeree 
aeeeeees 
aerereee 
aeenneee 
aeeneeee 
00000609 
eeeneeee 
aeeeneee 
aeeeeeee 
000005CC 
eereneee 
aeeeneee 
aeeeeeee 
aereneee 
0000055A 
aeeneeee 
aeeneene 


0000050A 


Reaeenne 


00000587 


AX/VMS Macro V04- 
DCL.SRCIRPDCL.MAR; 


! 
i. 


Page iby 


RPDCL - 7s 
Syabol table avai Langa, Baowtsaprcn ESE =HGRs BB:13:8% Hee L SRC HRE DEL Raa; 


BE 
le PRC_Q_KEYPAD 
PRC~B-DEF RADIX A PREG-tOCAL 
PRE-B-EXMDEPROD A PRE-O-SAVER 
PRE-BEXRDE PROD aD PRC~Q-SAVEPRIV 
PRE-B-EXONLYL 20 PRE-V-RODE 
Se hii at PRe-W-AST OSB ; 
PRC-B-OUTFLAG : PRETUTASTSTAT 
PRE-BOUTELAGS PRC“W"ASTSTATUS 
PRC-C-LENGTH PRC-W-ATTRBX 
rae-6- tomes PRC-W-FLAGS 
PREG CORMAN ; PRC-W~INPCHAN 
rae-e-pee d t PRC-U-ONLEVEL 
PRC-K-LENGTH 4 PRE-U-OUT TS 
PRECK-LENGTH ! PRC-W-OUTISI 
PRC-LCURRKEY 0000004 PRC-W~OUTMBXCHN 
rest -frtane A PRC-W~OUTMBXREF 
PRECL-EXTARG 0000094 PRC-W~OUTMBXS1Z 
PRE-LEXTELK 000008 PRC-W~PMPTCTRL 
PRE -LEXTCOD 09000¢ PRC-W"WAITIOSB 
PRE-L-EXTHND 000009 PROCIO R02 
PRCLL_IDFLNK 9000008 PTRTB-NOMBE 
PRC-L-IMGACTSTS 1000008 PTRB-PARACN 
PRC_L_INDCLOCK if D0¢ 7 4 it oll 
PRC-L-INDEPTH 00000 PTRICTLENGT 
PRE-LINDERT 100000 PTR-C-LENGTH 
PRE LINO AB an PTR-K~BLANK : 
PRE-LINDINPRAB | PTR-K~COLON : 
PRE-LINDOUT PTR7K~COMDQUAL = 
Pte ahs pe Pate 
lg = = s 
pRC-L-LSTSTA PTR-K-LENGTH 
= =ONCT PTR-K-LPAREN - 
PRE-LONERROR, PTR-K~PARAMETR 3 
c=t-ouT PTR7K~PARMQUAL = 
PRCCL-OUTRAB PTR7K~QUALVALU = 
pRE-L~OUTRA PTRIL-DESCR 
PRCWL-RECALLPTR PIAS OFFSET 
PRC-L RECALL PTR7S~OF FSET = 
=LoRESTA PTR7S-TERM 2 
PRC-L_SAVAP PTR7S-TYPE = 
PRECL-SAVER PTR-V-NEGATE = 
coL“Seve PTR-V~OF FSET = 
PRL SPUN PTR-V-SYNTAX : 
PRC“L~STACKPT PIRCVITYPE : 
PRC~L~STATUS QUACACT : 
pRCL-STA QUACACT R 
PROWL ~STV RET rR 
PRC“L~SYMBOL RET R 
PRCWL-TMBX RPU . 
PRL TMK RPU_B_LSTDESC 
pRCL-TRALIST RPU"B-STRPARM 
PRC-G"ALLOCRE RPU~C"HDRSIZ 
PRC-O-FLUSHT IME RPU-GBits. 
PRC-"GLOBAL RPU~G-PRMLIN 
NAME RPUTK-HORSIZ 
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! Psect synopsis ! 


were mee swen ean on$ 


PSECT name Allocation PSECT No. Attributes 

. 00000000 < » 0 ( 0.) NOPIC USR CON ABS LCLN 
SBs FFFFFFFC ( ( 1.) NOPIC USR CON ABS LCL NOSHR 
DCLSZCODE 0000066 163 2¢ 2.) NOPIC USR (CON REL LCL NOSHR 


poeaemoneowsserseneosnesawed 


! Performance indicators ! 


powensoumonnomow sre ec amas % 


Phase Page faults CPU Time Elapsed Time 
Initialization 1 :00:00. 

Command processing 9 : 0 65 a ‘09: g 

Pass 1 310 :00:12. 243.11 

Puss ¢ table sort a9 2:00:01, g : 9384 

Symbol table output 31 0: 00.26 8 

Psect synopsis output : . ‘ .03 

Cross-reference output :00:00. :00.00 

Assembler run totals 67 :00:18.54 034 el 


The working set Limit was 1650 pa 
ayeee I (133 pages) of virtua aonery were used to buffer the intermediate 
There were 60 pages of eyabo) table ?_ Oy ne to hold 914 non-local and 1 g lacot symbols. 
1216 source Lines were read in Pass produci ng object records in Pass 2. 
pages of virtual memory were used to define 29 macros. 


peo soem sao ren omeawe encones} 


! Macro library statistics ; 


Macro reece seca! name Macros defined 
ff bag ies 9 
+3 os DCL.AL m2: ' 1 
: ESyscs PHM ALB;2 3 
ie (all Libraries) 21 


1079 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
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OSHR ; = —— NOWRT NOVEC BYTE 


WRT NOVEC BYTE 
NOWRT NOVEC BYTE 


MACRO/LIS=LIS$:RPDCL/OBJ=0BJ$:RPDCL MSRC$:RPDCL/UPDATE=(ENHS:RPDCL) +EXECMLS/LIB+L I1B$:DCL/LIB*SYSSLIBRARY : SYSBLDOMLB/LIB 
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